1 REM SOUND EFFECTS
2 REM SAWING WOOD (VIC VERSION)
10 GOSUB 900:GOTO 100
20 POKE FR(0),P(0):POKE FR(1),0:POKE FR(2),0:POKE FR(3),20
30 POKE VL,15:PRINT "."
45 FOR I=0 TO 5:POKE VL,5:POKE VL,15:FOR X=0 TO INT(3*RND(9)):NEXT:NEXT
50 FOR I=15 TO 0 STEP-1:POKE VL,I:NEXT
55 FOR I=1 TO 15:POKE VL,I:FOR X=0 TO 2:NEXT:NEXT
60 FOR I=0 TO 2:POKE FR(I),0:NEXT
90 RETURN
99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT IS PRESSED
100 PRINT "PRESS SHIFT";
110 IF PEEK(653)=0 THEN 110
120 GOSUB 20:GOTO 100
898 REM ROUTINE TO SET UP VARIABLES
899 REM SET UP SOUND CONTROL ADDRESSES
900 DIM FR(3),P(127)
910 FR(0)=36874:FOR I=1 TO 3:FR(I)=FR(I-1)+1:NEXT
920 FOR I=0 TO 127:P(I)=I+128:NEXT
929 REM SET VOLUME ADDRESS
930 VL=36878
990 RETURN